10 MODE 2
20 INK 0,13
30 INK 1,0
40 BORDER 6
50 x=320
60 y=200
70 PRINT CHR$(7)
80 PLOT x,y
90 x=x+(((x>0)-(x<640))+((INKEY(1)-INKEY(8))))
100 y=y+(((y>0)-(y<400))+((INKEY(0)-INKEY(2))))
110 IF INKEY(60)>-1 THEN SAVE"etchscr.bin",b,&C000,&3FFF:PRINT CHR$(7)
120 IF INKEY(62)>-1 THEN CLS:GOTO 70
130 IF INKEY(50)>-1 THEN CLS:GOTO 50
140 GOTO 80